home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed6.d64
/
word drill
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
20KB
|
583 lines
1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
310 REM PROJECT DIRECTOR: FRANK WINTER
320 REM PROGRAM NAME: WORD DRILL
330 REM WRITTEN BY: PAT SCRIMGEOUR/STEVE DOUGLAS YORK BD OF ED
340 REM REVISED BY: PAT SCRIMGEOUR
350 REM UPDATED BY: BILL CUMBERLAND
399 :
400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
405 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211] [146]
413 [153]" RIGHT$N THIS PROGRAM, RIGHT$ WILL SHOW YOU EIGHT SENTENCES.
414 PRINT" [197]ACH ONE WILL HAVE A BLANK IN IT,
415 [153]" AND THERE WILL BE TWO WORDS FOLLOWING IT.
417 PRINT" [217]OU MUST TYPE IN [193] [146] OR [194] [146],"
418 PRINT" DEPENDING ON WHICH WORD YOU CHOOSE.
419 [153]" ATNFTER YOU HAVE DONE ALL EIGHT, YOU
420 PRINT" WILL HAVE A CHANCE TO CHANGE ANY OF YOUR ANSWERS.
421 [153]" RIGHT$F YOU CHOOSE TO CHANGE AN ANSWER,
422 PRINT" IT WILL AUTOMATICALLY BE CHANGED TO
426 [153]" THE OTHER WORD (A OR B) POSSIBLE FOR THAT SENTENCE.
427 GOSUB820
428 PRINT"[147] [215]HEN YOU ARE SATISFIED WITH YOUR ANSWERS, TYPE N [146].
429 [153]" RIGHT$ WILL THEN TELL YOU WHICH ONES"
431 [153]" YOU GOT WRONG, AND RIGHT$ WILL GIVE YOU A"
432 [153]" SHORT EXPLANATION OF THE DIFFERENCE"
433 [153]" BETWEEN THE TWO WORDS."
434 [153]" RIGHT$ WILL NOT TELL YOU WHAT THE RIGHT"
435 [153]" ANSWER IS, SO YOU WILL HAVE TO"
436 [153]" REMEMBER THE DIFFERENCES THE NEXT TIME."
485 [141]820:[142]
499 :
500 [143] <YES> SOUND
505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]TM[178]1[164]100:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO> SOUND
535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP> SOUND
565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
570 [151]54296,8:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
585 [151]54296,0:[142]
590 [129]TM[178]1[164]500:[130]:[142]
591 [129]TM[178]1[164]1000:[130]:[142]
592 [129]TM[178]1[164]2000:[130]:[142]
595 [129]TM[178]1[164]5000:[130]:[142]
599 :
800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
801 [153]" A TPUG EDUCATIONAL PROGRAM":[141]591
802 [153]" WAIT";
803 [153]" WAIT";
804 [153]" WAIT";
805 [153]" WORD DRILL WAIT";
806 [153]" WAIT";
807 [153]"OPEN WAIT";
808 [153]" WAIT";
809 [153]" WAIT":[141]591:[141]560
810 [153]" INSTRUCTIONS? Y/N
811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
812 IFR$="Y"THENGOSUB400
813 PRINT"[147] AND AWAY WE GO .........
814 [141] 591:[141]500:[141]591
815 [137]1000
820 [141]591:[141]560
822 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT"
824 [161]UI$:[139]UI$[179][177]" "[167]824
826 [142]
830 [141]591:[141]560
835 [151]UN,0:[153][200](UD$,24);"PRINT (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAITLIST"
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
855 [153]" --------------------------------------"
860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);" SETTING THE STAGE ... ":RETURN
899 :
900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
905 UD$="":UP$=" "
909 RETURN
910 GOSUB900:PRINT"[147] "
920 GOTO800
999 :
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
1095 IF FLAG=1 THEN CLR:GOSUB900:
1097 UT$=" [215]ORD [196]RILL"
1100 FLAG=1
1105 QU$=CHR$(34)
1111 TZ$=""
1120 DIM S$(45),A$(45,2),A(45),N(45),L(45),QU(23),Q$(45),AA$(45,2)
1130 DIM LL(45),R(45),AA(45),I(45)
1132 RESTORE:QU(L(R))=0
1140 M=8:UP=0:UG$=""
1150 N=44:AR=0
1160 DEF FNS(T)=LEN(AA$(T,R(T)))
1170 FORT=701TO710:POKET,0:NEXT
1180 GOSUB875
1190 FORT=1TON:READS$(T),A$(T,1),A$(T,2),A(T),N(T),L(T):NEXT
1196 FLAG=1
1200 FORT=1TOM
1210 R=INT(N*RND(1))+1:IFQU(L(R))THEN1210
1220 Q$(T)=S$(R):QU(L(R))=1:AA$(T,1)=A$(R,1):AA$(T,2)=A$(R,2):AA(T)=A(R)
1230 I(T)=N(R)
1240 LL(T)=L(R):NEXT:CR$=CHR$(13)+""
1250 FORT=1TOM
1260 POKE714+LL(T),1
1265 PRINT"[147]":POKEUT,UL%
1270 UG$="[209]UESTION":GOSUB 850
1271 PRINT" ";:FORG=1TOLEN(Q$(T)):IFMID$(Q$(T),G,1)="[160]"THENPRINTCR$CR$" ";:GOTO1290
1280 PRINTMID$(Q$(T),G,1);
1290 NEXTG
1300 REMPRINT" ";
1310 J=0:IFPOS(0)>35-LEN(AA$(T,1))-LEN(AA$(T,2))ORI(T)THENPRINTCR$CR$;:J=1
1320 PRINT" ("AA$(T,1)", "AA$(T,2)")"
1330 GOSUB560:PRINTCR$" [215]HICH WORD? A [146] OR B [146] >>>> ";
1340 US$="AB":UL=1:GOSUB35:R=ASC(UR$)-64
1380 R(T)=R:PRINT" "AA$(T,R)
1390 PRINT"";
1400 FORG=1TOLEN(Q$(T)):IFMID$(Q$(T),G,1)="[160]"THENPRINTCHR$(13)CR$"";:GOTO1430
1410 IFMID$(Q$(T),G,1)="[164]"THENPRINTAA$(T,R);:G=G+LEN(AA$(T,R))
1420 PRINT"";
1430 NEXT
1440 IFJ=1THENPRINTCR$;:GOTO1460
1450 IFI(T)ANDR=2THENFORTY=1TOI(T):PRINT"";:NEXTTY
1460 PRINT" ";:IFPOS(0)>0THEN1460
1480 FORTM=1TO2000:NEXT:NEXTT
1490 GOSUB1650
1500 PRINTTZ$;:PRINT" [195]HANGES? (Y/N) >>> ";
1501 US$="YN":UL=1:GOSUB35:R$=UR$
1530 IFR$="Y"THENGOSUB1640
1540 IFR$="N"THENGOSUB1640:GOTO1590
1545 PRINTTZ$;:PRINT" "
1550 PRINTTZ$;:PRINT" [215]HICH SENTENCE? (1-8) >> ";
1555 US$="12345678":UL=1:GOSUB35:T=VAL(UR$)
1580 GOSUB1640:R(T)=1-(R(T)-1)+1:GOSUB1830
1585 PRINTTZ$;:PRINT" ":GOTO1500
1590 GOSUB1760
1591 GOSUB 830
1630 GOSUB2770
1640 FORG=1TO200:NEXT:RETURN
1650 PRINT"[147]";:FORT=1TOM
1670 PRINT T;:FORG=1TOLEN(Q$(T))
1680 N$=MID$(Q$(T),G,1):PO=POS(0):IFPO>39THENPO=PO-39
1690 IFN$="[160]"ANDPO<38THENFORTY=POTO38:PRINT" ";:NEXT
1700 IFN$="[160]"THENPRINTCR$" ";:Y$=Y$+"":GOTO1730
1710 IFN$="[164]"THENPRINTAA$(T,R(T));:G=G+LEN(AA$(T,R(T)))-1:GOTO1740
1720 PRINTN$;
1730 NEXTG:FORG=POS(0)TO39:PRINT" ";:NEXT:PRINTCR$;:Y$=Y$+"":NEXTT:RETURN
1740 IFI(T)ANDR(T)=2THENG=G-I(T)
1750 GOTO1730
1760 PRINT"";:G=US+2:FORT=1TOM
1770 IFPEEK(G)-48=TTHEN1800
1780 PRINT"";:G=G+40:IFG=33690THENPRINT"";:RETURN
1790 GOTO1770
1800 IFR(T)=AA(T)THENPRINT"[186][157]";:GOSUB500:SC=SC+1:QU(LL(T))=2:NEXTT:GOTO1820
1810 PRINT"X[157]";:GOSUB530:POKE700+LL(T),1:NEXTT
1820 PRINT"";:RETURN
1830 PRINT"";:G=US+2
1840 IFPEEK(G)-48=TTHEN1870
1850 PRINT"";:G=G+40:IFG=33690THENPRINT"";:RETURN
1860 GOTO1840
1870 PRINT" "T;:FORG=1TOLEN(Q$(T))
1880 N$=MID$(Q$(T),G,1):IFN$="[160]"THENPRINTCR$" ";:GOTO1910
1890 IFN$="[164]"THENPRINTAA$(T,R(T));:G=G+LEN(AA$(T,R(T)))-1:GOTO1920
1900 PRINTN$;
1910 NEXTG:PRINT" [157][157][157]"CR$CR$;:RETURN
1920 IFI(T)ANDR(T)=2THENG=G-I(T)
1930 GOTO1910
2160 UG$="[208]AGE":GOSUB850
2170 RETURN
2210 DATA" [212]HE [164][164][164][164][164][164] WE RECEIVED WAS TO PAY[160]ATTENTION TO THE TEACHER.",ADVISE
2220 DATAADVICE,2,0,1
2230 DATA" [201] [164][164][164][164][164][164] YOU TO KEEP CALM.",ADVISE,ADVICE,1,0,1
2240 DATA" [212]HE TEMPERATURE WAS NOT[160][164][164][164][164][164][164][164][164] BY THE RAIN.",AFFECTED,EFFECTED
2250 DATA1,0,2
2260 DATA" [212]HE [164][164][164][164][164][164] OF THE STORM WAS TO[160]LOWER THE TEMPERATURE."
2270 DATAAFFECT,EFFECT,2,0,2
2280 DATA" [212]HE CAR WOULD NOT [164][164][164][164][164] PROPERLY."
2290 DATABRAKE,BREAK,1,0,3
2300 DATA" [196]ON'T [164][164][164][164][164] THAT!"
2310 DATABRAKE,BREAK,2,0,3
2320 DATA" [212]HE SANDPAPER IS TOO [164][164][164][164][164][164]."
2330 DATACOARSE,COURSE,1,0,4
2340 DATA" [215]E VISITED THE RACING [164][164][164][164][164][164]."
2350 DATACOARSE,COURSE,2,0,4
2360 DATA" [195]OME [164][164][164][164], PLEASE.", HERE,HEAR,1,0,5
2370 DATA" [195]AN YOU [164][164][164][164] ME?", HERE,HEAR,2,0,5
2380 DATA" [200]E THINKS [164][164][164][164][164] GOING TO LEAVE.",THEIR,"THEY'[148][148]RE",2,4,6
2390 DATA" [212]HIS BOX BELONGS RIGHT [164][164][164][164][164].",THEIR,THERE,2,0,7
2400 DATA" [201]S THIS [164][164][164][164][164] CAR?", THEIR,THERE,1,0,7
2410 DATA" [198]EW PLANTS GROW ON THE [164][164][164][164][164][164].",DESERT,"DESSER[148]T",1,2,8
2420 DATA" [215]E'RE HAVING PIE FOR [164][164][164][164][164][164].",DESERT,"DESSER[148]T",2,2,8
2430 DATA" [204]ANGSTAFF [210]OAD WAS [164][164][164][164][164][164][164][164] OLD[160][200]IGHWAY 7.",FORMALLY,FORMERLY,2,0,9
2440 DATA" [212]HE ROBBERY WAS [164][164][164] BY AN[160]ESCAPED CRIMINAL.",LED,"LEA[148]D",1,2,10
2450 DATA" [195]URTAINS ARE OFTEN WEIGHTED DOWN[160]WITH [164][164][164].", LED,"LEA[148]D",2,2,10
2460 DATA" [193] BUS JUST DROVE [164][164][164][164] THE SCHOOL.", PAST,"PASS[148][148]ED",1,4,11
2470 DATA" [193] BUS JUST [164][164][164][164] THE SCHOOL.", PAST,"PASS[148][148]ED",2,4,11
2480 DATA" [215]OULD YOU LIKE A [164][164][164][164][164] OF CAKE?", PEACE,PIECE,2,0,12
2490 DATA" [215]HEN THERE ARE NO WARS,[160]THERE IS [164][164][164][164][164].", PEACE,PIECE,1,0,12
2500 DATA" [193]NOTHER WORD FOR PRAIRIE IS [164][164][164][164][164].", PLAIN,PLANE,1,0,13
2510 DATA" [193] WHITE WALL LOOKS [164][164][164][164][164].", PLAIN,PLANE,1,0,13
2520 DATA" [193]IR [195]ANADA OWNS MANY [164][164][164][164][164][164].", PLAINS,PLANES,2,0,13
2530 DATA" [212]HE [164][164][164][164][164][164][164][164][164] OF THE LOAN WAS[160]REPAID TO THE BANK.", PRINCIPLE
2540 DATA PRINCIPAL,2,0,14
2550 DATA" [193] PERSON SHOULD STICK TO HIS[160][164][164][164][164][164][164][164][164][164][164].", PRINCIPALS,PRINCIPLES
2560 DATA2,0,14
2570 DATA" [202]EAN [164][164][164][164][164] THE BALL AT YOU.", THREW,"THROU[148][148]GH",1,4,15
2580 DATA" [212]HE BALL WENT [164][164][164][164][164] THE WINDOW.", THREW,"THROU[148][148]GH",2,4,15
2590 DATA" [200]AVE YOU [164][164][164] THE NEWSPAPER TODAY?", RED,"REA[148]D",2,2,16
2600 DATA" [212]HIS COMPUTER IS [164][164] BIG FOR A[160]WRISTWATCH.", TO,"TO[148]O",2,2,17
2610 DATA" [198]RANK ATE [164][164][164] MANY JELLYBEANS.", TOO,TWO,1,0,17
2620 DATA" [193] BELT GOES AROUND YOUR [164][164][164][164][164].", WAIST,WASTE,1,0,18
2630 DATA" [215]E SHOULD NOT [164][164][164][164][164] ENERGY.", WAIST,WASTE,2,0,18
2640 DATA" [211]OME NEWSPAPERS ARE PUBLISHED[160][164][164][164][164][164][164].", WEAKLY,WEEKLY,2,0,19
2650 DATA" [215]HEN YOU ARE ILL, SOMETIMES YOU[160]ARE [164][164][164][164].", WEAK,WEEK,1,0,19
2660 DATA" [217]OU SHOULD BE ABLE TO [164][164][164] THIS[160]SENTENCE.", SEE,SEA,1,0,20
2670 DATA" [193]NOTHER WORD FOR [164][164][164] IS OCEAN.", SEE,SEA,2,0,20
2680 DATA" [212]HE [164][164][164][164][164][164][164] WILL BE SUNNY.", WEATHER,WHETHER,1,0,21
2690 DATA" [201] DON'T KNOW [164][164][164][164][164][164][164] OR NOT IT[160]WILL BE SUNNY.", WEATHER,WHETHER
2700 DATA 2,0,21
2710 DATA" [164][164][164][164][164] PENCIL IS THIS?","[215]HO'S","[215]HOSE",2,0,22
2720 DATA" [164][164][164][164][164] COMING TO THE PARTY?","[215]HO'S","[215]HOSE",1,0,22
2730 DATA" [201] THINK THIS IS [164][164][164][164] ERASER.", YOUR,"YOU'[148][148]RE",1,4,23
2740 DATA" [201] HOPE [164][164][164][164] GOING TO ANSWER THIS[160]QUESTION PROPERLY.", YOUR,YOU'RE
2750 DATA 2,4,23
2770 IFQU(1)<>1THEN2880
2780 PRINT"[147][193]DVICE/[193]DVISE"
2790 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
2800 PRINT"[193]DVICE[146] IS A NOUN MEANING SUGGESTIONS"
2810 PRINT"GIVEN TO IMPROVE SOMETHING."
2820 PRINT"[197]XAMPLE[146]: [205]Y ADVICE TO YOU IS TO GO"
2830 PRINT" AND SEE THE TEACHER ABOUT YOUR WORK."
2840 PRINT"[193]DVISE[146], ON THE OTHER HAND, IS A VERB"
2850 PRINT"MEANING TO GIVE ADVICE."
2860 PRINT"[197]XAMPLE[146]: [211]HE ADVISED ME TO GO HOME."
2870 GOSUB830
2880 IFQU(2)<>1THEN3010
2890 PRINT"[147][193]FFECT/[197]FFECT"
2900 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
2910 PRINT"[212]O AFFECT[146] SOMETHING IS TO ALTER ITS"
2920 PRINT"STATE SOMEHOW."
2930 PRINT"[197]XAMPLE[146]: [212]HE INJURY AFFECTED HIS KNEE."
2940 PRINT"[193]N EFFECT[146] IS THE CHANGE MADE IN"
2950 PRINT"SOMETHING WHEN IT IS AFFECTED."
2960 PRINT"[197]XAMPLE[146]: [212]HE INJURY HAD AN EFFECT"
2970 PRINT" ON HIS KNEE."
2980 PRINT""QU$"[197]FFECT"QU$" IS A NOUN, AND "QU$"AFFECT"QU$
2990 PRINT"IS A VERB."
3000 GOSUB830
3010 IFQU(3)<>1THEN3110
3020 PRINT"[147][194]RAKE/[194]REAK"
3030 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
3040 PRINT"[197]RRORS MADE BETWEEN THESE TWO WORDS"
3050 PRINT"ARE GENERALLY SPELLING MISTAKES,"
3060 PRINT"RATHER THAN MISUNDERSTANDINGS."
3070 PRINT"[212]O BREAK[146] IS TO HARM OR DESTROY; TO"
3080 PRINT"BRAKE[146] IS TO SLOW DOWN (E.G., APPLY"
3090 PRINT"THE BRAKES IN A CAR)."
3100 GOSUB830
3110 IFQU(4)<>1THEN3240
3120 PRINT"[147][195]OARSE/[195]OURSE"
3130 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
3140 PRINT"[195]OARSE[146] IS AN ADJECTIVE (DESCRIBES A"
3150 PRINT"NOUN) THAT USUALLY MEANS LARGE-GRAINED."
3160 PRINT"[198]OR INSTANCE, COARSE SAND MEANS SAND"
3170 PRINT"WITH FAIRLY LARGE PEBBLES IN IT."
3180 PRINT"[195]OARSE SCREEN IS SCREEN WITH LARGE"
3190 PRINT"SPACES BETWEEN THE WIRES."
3200 PRINT"[193] [195]OURSE[146] IS A ROUTE OR TRACK TO FOLLOW."
3210 PRINT"(E.G., A RACING COURSE, A COURSE OF"
3220 PRINT"ACTION, OR A COURSE AT SCHOOL)"
3230 GOSUB830
3240 IFQU(5)<>1THEN3340
3250 PRINT"[147][200]EAR/[200]ERE"
3260 PRINT"[163][163][163][163][163][163][163][163][163]"
3270 PRINT"[200]EAR[146] IS A VERB MEANING TO DETECT WITH"
3280 PRINT"THE EAR. [217]OU HEAR[146] NOISES."
3290 PRINT"[200]ERE[146] IS A PRONOUN (REPLACES A NOUN)"
3300 PRINT"THAT INDICATES THAT AN ACTION IS TAKING"
3310 PRINT"PLACE WHERE YOU ARE. "QU$"[195]OME HERE."QU$" MEANS";
3320 PRINTQU$"[195]OME TO WHERE [201] AM."QU$"."
3330 GOSUB830
3340 IFQU(6)<>1THEN3460
3350 PRINT"[147][212]HEIR/[212]HEY'RE"
3360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
3370 PRINT"[212]HEIR[146] IS A POSSESSIVE PRONOUN TO"
3380 PRINT"INDICATE THAT SOMETHING BELONGS TO A"
3390 PRINT"GROUP OF PEOPLE."
3400 PRINT"[197]XAMPLE[146]: [212]HAT IS THEIR BASEBALL."
3410 PRINT"[212]HEY'RE[146] IS A CONTRACTION OF THE WORDS"
3420 PRINTQU$"THEY ARE"QU$"."
3430 PRINT"[197]XAMPLE[146]: "QU$"[212]HEY'RE ALL HERE."QU$" MEANS THE
3440 [153]" SAME AS "QU$"(null)HEY ARE ALL HERE."QU$"."
3450 [141]830
3460 [139]QU(7)[179][177]1[167]3630
3470 [153]"LOAD(null)HEIR/(null)HERE"
3480 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3490 [153]QU$"(null)HEIR"QU$" IS A POSSESSIVE PRONOUN TO"
3500 [153]"INDICATE THAT SOMETHING BELONGS TO A"
3510 [153]"GROUP OF PEOPLE."
3520 [153]"VALXAMPLEWAIT: (null)HAT IS THEIR FRISBEE."
3530 [153]""QU$"(null)HERE"QU$" IS A PRONOUN TO DESCRIBE A"
3540 [153]"PLACE DISTANT FROM YOUR OWN LOCATION."
3550 [153]"VALXAMPLEWAIT: (null)HE FLYING SAUCER LANDED"
3560 [153]" THERE."
3570 [153]"(null)HESE TWO WORDS ARE OFTEN CONFUSED."
3580 [153]"ATNN EASY WAY TO REMEMBER WHICH IS WHICH"
3590 [153]"IS TO REMEMBER THAT THEREWAIT HAS IN IT THE"
3600 [153]"WORD HEREWAIT, BOTH OF WHICH REFER TO"
3610 [153]"PLACES."
3620 [141]830
3630 [139]QU(8)[179][177]1[167]3740
3640 [153]"LOADSTR$ESERT/STR$ESSERT"
3650 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3660 [153]"(null)HERE SHOULD BE VERY LITTLE CONFUSION"
3670 [153]"OVER THE MEANINGS OF THESE WORDS, BUT"
3680 [153]"SINCE THEY ARE SPELLED SO SIMILARLY,"
3690 [153]"MANY PEOPLE DON'T REMEMBER HOW TO SPELL"
3700 [153]"EITHER ONE. ATN DESERTWAIT IS A LARGE"
3710 [153]"EXPANSE OF DRY LAND. ATN DESSERTWAIT IS"
3720 [153]"EATEN AFTER DINNER."
3730 [141]830
3740 [139]QU(9)[179][177]1[167]3880
3750 [153]"LOADASCORMALLY/ASCORMERLY"
3760 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3770 [153]"ASCORMALLYWAIT IS AN ADVERB (WORD THAT"
3780 [153]"DESCRIBES A VERB) MEANING OFFICIALLY."
3790 [153]"(null)HEN SOMETHING HAS BEEN DONE FORMALLY,"
3800 [153]"IT HAS BEEN DONE IN A PRE-ARRANGED"
3810 [153]"ORDER, ACCORDING TO TRADITION."
3820 [153]"ASCORMERLYWAIT IS ANOTHER ADVERB, BUT THIS"
3830 [153]"ONE MEANS "QU$"PREVIOUSLY"QU$"."
3840 [153]"VALXAMPLEWAIT: (null)IRKO ASCRYCE PLAYS FOR"
3850 [153]" THE (null)APLE (null)EAFS. LEFT$E FORMERLY PLAYED"
3860 [153]" FOR THE (null)UEBEC (null)ORDIQUES."
3870 [141]830
3880 [139]QU(10)[179][177]1[167]4020
3890 [153]"LOAD(null)EAD/(null)ED"
3900 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3910 [153]"(null)EADWAIT IS A WORD THAT CAN BE PRONOUNCED"
3920 [153]"TWO DIFFERENT WAYS, EACH INDICATING A"
3930 [153]"DIFFERENT MEANING. (null)HEN PRONOUNCED"
3940 [153]QU$"LED"QU$" IT MEANS A VERY HEAVY TYPE OF"
3950 [153]"METAL. (null)HEN PRONOUNCED "QU$"LEED"QU$" IT IS A"
3960 [153]"VERB MEANING "QU$"TO GUIDE"QU$"."
3970 [153]"(null)EDWAIT IS THE PAST TENSE OF THE VERB"
3980 [153]QU$"LEAD"QU$"."
3990 [153]"VALXAMPLEWAIT: (null)HE GENERAL LED THE ATTACK"
4000 [153]" AGAINST THE ENEMY."
4010 [141]830
4020 [139]QU(11)[179][177]1[167]4210
4030 [153]"LOAD(null)ASSED/(null)AST"
4040 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4050 [153]"(null)HERE IS MUCH CONFUSION OVER THESE TWO"
4060 [153]"WORDS, SINCE THEY HAVE SIMILAR MEANINGS"
4070 [153]"AS WELL AS SIMILAR SPELLINGS. (null)ASSEDWAIT"
4080 [153]"IS THE PAST TENSE OF THE VERB "QU$"PASS"QU$","
4090 [153]"MEANING TO GO BY. (null)ASTWAIT IS EITHER"
4100 [153]"A ADJECTIVE (DESCRIBES A NOUN) MEANING"
4110 [153]"SOMETHING THAT HAS GONE BY ("QU$"PAST
4120 PRINT"TENSE"QU$"), A NOUN MEANING TIME THAT HAS"
4130 PRINT"GONE BY ("QU$"THE PAST"QU$"), OR A VERB USED"
4140 PRINT"IN A SIMILAR, BUT NOT IDENTICAL WAY"
4150 PRINT"TO "QU$"PASSED"QU$"."
4160 PRINT"[197]XAMPLE[146]: [212]HE TRUCK PASSED US."
4170 PRINT" [212]HE TRUCK WENT PAST US."
4180 PRINT"[194]OTH SENTENCES HAVE SIMILAR MEANINGS,"
4190 PRINT"BUT ARE CONSTRUCTED DIFFERENTLY."
4200 GOSUB830
4210 IFQU(12)<>1THEN4300
4220 PRINT"[147][208]EACE/[208]IECE"
4230 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
4240 PRINT"[208]EACE[146] (A NOUN) IS WHAT EXISTS WHEN"
4250 PRINT"THERE IS NO FIGHTING. [212]HE TIME WHEN"
4260 PRINT"THERE IS NO WAR IS CALLED PEACETIME."
4270 PRINT"[193] PIECE[146] IS A PORTION OF SOMETHING."
4280 PRINT"[193] PIECE OF CAKE IS PART OF A CAKE."
4290 GOSUB830
4300 IFQU(13)<>1THEN4480
4310 PRINT"[147][208]LAIN/[208]LANE"
4320 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
4330 PRINT"[193] PLAIN[146] IS A LARGE, FLAT AREA OF LAND."
4340 PRINT"[208]LAIN[146] IS ALSO AN ADJECTIVE TO DESCRIBE"
4350 PRINT"SOMETHING AS ORDINARY OR UNIFORM."
4360 PRINT"[193] PLAIN HAT WOULD BE AN ORDINARY-LOOKING";
4370 PRINT"HAT, PROBABLY ALL ONE COLOUR."
4380 PRINT"[208]LANE[146] IS A NOUN WHICH MEANS ONE OF"
4390 PRINT"THREE THINGS: [201]N MATHEMATICS, A PLANE"
4400 PRINT"IS A FLAT SURFACE IN SPACE. [215]HEN YOU"
4410 PRINT"ARE BUILDING SOMETHING, A PLANE IS A"
4420 PRINT"TOOL USED TO MAKE A SURFACE FLAT."
4430 PRINT"([212]O PLANE IS ALSO THE VERB DESCRIIBING"
4440 PRINT"THE ACTION OF USING A PLANE.) [193]S WELL,"
4450 PRINT"PLANE IS NOW USED AS A SHORT FORM OF"
4460 PRINT"THE WORD "QU$"AIRPLANE"QU$"."
4470 GOSUB830
4480 IFQU(14)<>1THEN4650
4490 PRINT"[147][208]RINCIPAL/[208]RINCIPLE"
4500 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
4510 PRINT"[208]RINCIPAL[146] IS AN ADJECTIVE MEANING"
4520 PRINT"MOST IMPORTANT, OR LARGEST."
4530 PRINT"[198]OR EXAMPLE, WE SPEAK OF "QU$"THE PRINCIPAL"
4540 PRINT"REASON"QU$" FOR SOMETHING. [215]HEN USED IN"
4550 PRINT"THE FORM "QU$"PRINCIPAL OF A SCHOOL"QU$", THE"
4560 PRINT"WORD IS A NOUN."
4562 PRINT"[208]RINCIPAL[146] CAN ALSO MEAN A SUM OF MONEY
4564 [153]"LENT AND EARNING INTEREST.
4570 PRINT"[212]HE WORD PRINCIPLE[146] IS OFTEN CONFUSED"
4580 PRINT"WITH "QU$"PRINCIPAL"QU$". [193] PRINCIPLE IS"
4590 PRINT"A RULE, LAW, OR DOCTRINE."
4600 PRINT"[193] PERSON'S PRINCIPLES ARE THE RULES HE"
4610 PRINT"LIVES BY. [212]HE PRINCIPLES OF A METHOD"
4620 PRINT"ARE THE RULES THAT MUST BE FOLLOWED"
4630 PRINT"IN THE METHOD."
4640 GOSUB830
4650 IFQU(15)<>1THEN4780
4660 PRINT"[147][212]HREW/[212]HROUGH"
4670 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
4680 PRINT"[212]HREW[146] IS THE PAST TENSE OF THE VERB"
4690 PRINTQU$"THROW"QU$"."
4700 PRINT"[197]XAMPLE[146]: [194]OB THREW THE CREAM PIE."
4710 PRINT"[212]HROUGH[146] IS AN ADVERB INDICATING HOW"
4720 PRINT"SOMETHING MOVES. "QU$"[212]HE BALL WENT"
4730 PRINT"THROUGH THE WINDOW."QU$
4740 PRINT"[212]HROUGH CAN ALSO BE USED AS AN ADJECTIVE";
4750 PRINT"TO MEAN "QU$"FINISHED"QU$", AS IN "QU$"[193]RE YOU"
4760 PRINT"THROUGH?"QU$
4770 GOSUB830
4780 IFQU(16)<>1THEN4890
4790 PRINT"[147][210]EAD/[210]ED"
4800 PRINT"[163][163][163][163][163][163][163][163]"
4810 PRINT"[210]EAD[146] IS A WORD WITH TWO MEANINGS"
4820 PRINT"ACCORDING TO PRONUNCIATION. [215]HEN"
4830 PRINT"PRONOUNCED "QU$"REED"QU$", "QU$"READ"QU$" IS A VERB"
4840 PRINT"MEANING A WAY OF COMMUNICATING. [215]HEN"
4850 PRINT"IT IS PRONOUNCED "QU$"RED"QU$", IT IS THE PAST"
4860 PRINT"TENSE OF THIS VERB."
4870 PRINT"[210]ED[146] IS A COLOUR."
4880 GOSUB830
4890 IFQU(17)<>1THEN5040
4900 PRINT"[147][212]O/[212]OO/[212]WO"
4910 PRINT"[163][163][163][163][163][163][163][163][163][163]"
4920 PRINT"[212]WO[146] IS A WORD REPRESENTING A NUMBER"
4930 PRINT"(OF OBJECTS). (E.G., [212]WO STARS: * *)"
4940 PRINT"[212]OO[146] MEANS "QU$"ALSO"QU$", "QU$"AS WELL AS"QU$", OR"
4950 PRINTQU$"AN EXCESSIVE AMOUNT"QU$". [198]OR INSTANCE:"
4960 PRINTQU$"TOO MUCH SCHOOL"QU$", OR "QU$"[212]HERE WERE"
4970 PRINT"RADIOS, AND TELEVISIONS, TOO."QU$"."
4980 PRINT"[212]O[146] IS A PREPOSITION HAVING SO MANY"
4990 PRINT"MEANINGS THAT THERE ISN'T TIME TO[146] SHOW"
5000 PRINT"THEM ALL HERE."
5010 PRINT"[212]HE IMPORTANT THING TO[146] REMEMBER IS THAT"
5020 PRINTQU$"TOO"QU$" IS NOT SPELLED "QU$"TO"QU$"."
5030 GOSUB830
5040 IFQU(18)<>1THEN5160
5050 PRINT"[147][215]AIST/[215]ASTE"
5060 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
5070 PRINT"[212]HE WAIST[146] IS THE PART OF THE BODY"
5080 PRINT"JUST ABOVE THE HIPS. [201]T IS THE AREA"
5090 PRINT"WHERE A BELT IS WORN."
5100 PRINT"[215]ASTE[146] IS A NOUN MEANING EXCESS WITH"
5110 PRINT"NO APPARENT VALUE, AS IN "QU$"[212]HAT WAS A"
5120 PRINT"WASTE OF TIME."QU$", OR A VERB MEANING TO"
5130 PRINT"USE TOO MUCH OF SOMETHING ("QU$"[196]ON'T WASTE"
5140 PRINT"ENERGY."QU$")."
5150 GOSUB830
5160 IFQU(19)<>1THEN5250
5170 PRINT"[147][215]EAK/[215]EEK"
5180 PRINT"[163][163][163][163][163][163][163][163][163]"
5190 PRINT"[215]EAK[146] IS AN ADJECTIVE INDICATING LACK"
5200 PRINT"OF STRENGTH."
5210 PRINT"[197]XAMPLE[146]: [212]HE [193]RGOS ARE A WEAK TEAM."
5220 PRINT"[193] WEEK[146] IS A PERIOD OF TIME EQUAL"
5230 PRINT"TO SEVEN DAYS."
5240 GOSUB830
5250 IFQU(20)<>1THEN5340
5260 PRINT"[147][211]EA/[211]EE"
5270 PRINT"[163][163][163][163][163][163][163]"
5280 PRINT"[211]EA[146] IS A NOUN MEANING THE SAME AS"
5290 PRINT"OCEAN, A LARGE BODY OF WATER (USUALLY"
5300 PRINT"SALT WATER)."
5310 PRINT"[211]EE[146] IS A VERB MEANING TO PERCEIVE"
5320 PRINT"WITH THE EYES. "QU$"[201] SEE THE COMPUTER."QU$
5330 GOSUB830
5340 IFQU(21)<>1THEN5460
5350 PRINT"[147][215]EATHER/[215]HETHER"
5360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
5370 PRINT"[212]HE WEATHER[146] IS THE CLIMATE IN ONE"
5380 PRINT"PLACE AT A PARTICULAR TIME. [212]HE WEATHER";
5390 PRINT"CAN BE RAINY, HOT, DRY, OR ALMOST"
5400 PRINT"ANYTHING ELSE."
5410 PRINT"[215]HETHER[146] OR NOT YOU UNDERSTAND THE"
5420 PRINT"DIFFERENCE BETWEEN THESE TWO WORDS"
5430 PRINT"DEPENDS ON WHETHER[146] YOU UNDERSTAND"
5440 PRINT"THE USES OF THE WORDS."
5450 GOSUB830
5460 IFQU(22)<>1THEN5640
5470 PRINT"[147][215]HO'S/[215]HOSE"
5480 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
5490 PRINT"[212]HESE TWO WORDS ARE OFTEN CONFUSED"
5500 PRINT"BECAUSE PEOPLE ARE UNSURE ABOUT THEIR"
5510 PRINT"MEANINGS. [210]EMEMBER THAT WHO'S[146] IS ONLY[146]"
5520 PRINT"A CONTRACTION FOR "QU$"WHO IS"QU$" (E.G.,"
5530 PRINTQU$"[215]HO'S ON FIRST?"QU$")."
5540 PRINT"[215]HOSE[146], HOWEVER, IS A POSSESSIVE"
5550 PRINT"PRONOUN MEANING "QU$"BELONGING TO WHOM"QU$"."
5560 PRINT"[217]OU MIGHT THINK THAT, SINCE MOST WORDS"
5570 PRINT"TAKE A ' (E.G., [202]ACK'S) TO BECOME"
5580 PRINT"POSSESSIVE, THAT WHO'S WOULD BE THE"
5590 PRINT"POSSESSIVE FORM OF WHO, BUT THIS IS NOT"
5600 PRINT"THE CASE. [212]HE ONLY WAY TO REMEMBER"
5610 PRINT"WHICH WORD TO USE WHEN IS TO KNOW THE"
5620 PRINT"DIFFERENCES; SO, LEARN THEM!"
5630 GOSUB830
5640 IFQU(23)<>1THEN5790
5650 PRINT"[147][217]OUR/[217]OU'RE"
5660 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
5670 PRINT"[200]ERE ARE TWO WORDS THAT ARE OFTEN"
5680 PRINT"MISTAKEN FOR ONE ANOTHER. [217]OU CAN AVOID";
5690 PRINT"ALL ERRORS WITH THESE WORDS IF YOU"
5700 PRINT"REMEMBER TWO THINGS:"
5710 PRINT"1) [217]OUR[146] IS ONLY[146] USED AS A PRONOUN"
5720 PRINT" EXPRESSING POSSESSION. [198]OR EXAMPLE,"
5730 PRINT" "QU$"[217]OUR SHIRT IS BLUE."QU$
5740 PRINT"2) [217]OU'RE[146] IS ONLY[146] USED AS A"
5750 PRINT" CONTRACTION OF "QU$"YOU ARE"QU$". [197]XAMPLE:"
5760 PRINT" "QU$"[201] THINK YOU'RE SITTING IN FRONT OF"
5770 PRINT" A COMPUTER."QU$
5780 GOSUB830
5790 AR=0:FORA=1TO23:AR=AR+QU(A):NEXT
5795 IFAR=0THEN5910
5800 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,3
5805 PRINT" [212]HAT'S IT. [217]OU GOT"AR-8"RIGHT OUT"
5810 PRINT" OF 8 SENTENCES.":GOSUB560:GOSUB591
5815 IFAR<16THENPRINT" [217]OU CAN DO BETTER THAN THIS.":GOSUB530
5820 IF AR=16 THEN PRINT" [212]HAT'S TERRIFIC!!!!":GOSUB500:GOSUB500
5825 GOSUB591:GOSUB560:PRINT" [215]ANT TO PLAY AGAIN? (Y/N) ";
5830 GETR$:IFR$<>"Y"ANDR$<>"N"THEN5830
5835 IFR$ ="Y" THEN RESTORE:GOTO1000
5850 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
5860 [147]"MENU",8
5870 [138]
5880 [128]
5910 [142]
6000 [143] WHC 90:11:30